home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / pretty12.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  26KB  |  1,274 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "pretty.h"
  9.  
  10.  
  11. void r51a_r1(T51* C,T0* a1){
  12. T0* _sp=NULL;
  13. T0* _infix_implies=NULL;
  14. /*[IF*/
  15. if(r51a_keyword(C,((T0*)ms13_9513))){
  16. {T39*n=malloc(sizeof(*n));
  17. *n=M39;
  18. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  19. _sp=(T0*)n;
  20. }
  21. /*[IF*/
  22. if(r51a_e1(C)){
  23. {T96*n=malloc(sizeof(*n));
  24. *n=M96;
  25. r96make(n,a1,_sp,(C)->_last_expression/*97*/);
  26. _infix_implies=(T0*)n;
  27. }
  28. r51a_r1(C,_infix_implies);
  29. }
  30. else{
  31. r51error(_sp,((T0*)ms51_78732));
  32. }
  33. /*FI]*/
  34. }
  35. else{
  36. C->_last_expression=a1;
  37. }
  38. /*FI]*/
  39. }
  40.  
  41.  
  42. void r51a_r2(T51* C,T0* a1){
  43. T0* _sp=NULL;
  44. T0* _infix_xor=NULL;
  45. T0* _infix_or=NULL;
  46. T0* _infix_or_else=NULL;
  47. /*[IF*/
  48. if(r51a_keyword(C,((T0*)ms13_456))){
  49. {T39*n=malloc(sizeof(*n));
  50. *n=M39;
  51. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  52. _sp=(T0*)n;
  53. }
  54. /*[IF*/
  55. if(r51a_keyword(C,((T0*)ms12_1740))){
  56. /*[IF*/
  57. if(r51a_e2(C)){
  58. {T104*n=malloc(sizeof(*n));
  59. *n=M104;
  60. r104make(n,a1,_sp,(C)->_last_expression/*97*/);
  61. _infix_or_else=(T0*)n;
  62. }
  63. r51a_r2(C,_infix_or_else);
  64. }
  65. else{
  66. r51err_exp(_sp,((T0*)ms13_8316));
  67. }
  68. /*FI]*/
  69. }
  70. else{
  71. /*[IF*/
  72. if(r51a_e2(C)){
  73. {T103*n=malloc(sizeof(*n));
  74. *n=M103;
  75. r103make(n,a1,_sp,(C)->_last_expression/*97*/);
  76. _infix_or=(T0*)n;
  77. }
  78. r51a_r2(C,_infix_or);
  79. }
  80. else{
  81. r51err_exp(_sp,((T0*)ms13_456));
  82. }
  83. /*FI]*/
  84. }
  85. /*FI]*/
  86. }
  87.  else if(r51a_keyword(C,((T0*)ms13_1053a))){
  88. {T39*n=malloc(sizeof(*n));
  89. *n=M39;
  90. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  91. _sp=(T0*)n;
  92. }
  93. /*[IF*/
  94. if(r51a_e2(C)){
  95. {T102*n=malloc(sizeof(*n));
  96. *n=M102;
  97. r102make(n,a1,_sp,(C)->_last_expression/*97*/);
  98. _infix_xor=(T0*)n;
  99. }
  100. r51a_r2(C,_infix_xor);
  101. }
  102. else{
  103. r51err_exp(_sp,((T0*)ms13_1053a));
  104. }
  105. /*FI]*/
  106. }
  107. else{
  108. C->_last_expression=a1;
  109. }
  110. /*FI]*/
  111. }
  112.  
  113.  
  114. void r51a_r3(T51* C,T0* a1){
  115. T0* _sp=NULL;
  116. T0* _infix_and=NULL;
  117. T0* _infix_and_then=NULL;
  118. /*[IF*/
  119. if(r51a_keyword(C,((T0*)ms13_939))){
  120. {T39*n=malloc(sizeof(*n));
  121. *n=M39;
  122. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  123. _sp=(T0*)n;
  124. }
  125. /*[IF*/
  126. if(r51a_keyword(C,((T0*)ms12_1764))){
  127. /*[IF*/
  128. if(r51a_e3(C)){
  129. {T106*n=malloc(sizeof(*n));
  130. *n=M106;
  131. r106make(n,a1,_sp,(C)->_last_expression/*97*/);
  132. _infix_and_then=(T0*)n;
  133. }
  134. r51a_r3(C,_infix_and_then);
  135. }
  136. else{
  137. r51err_exp(_sp,((T0*)ms13_10800));
  138. }
  139. /*FI]*/
  140. }
  141. else{
  142. /*[IF*/
  143. if(r51a_e3(C)){
  144. {T105*n=malloc(sizeof(*n));
  145. *n=M105;
  146. r105make(n,a1,_sp,(C)->_last_expression/*97*/);
  147. _infix_and=(T0*)n;
  148. }
  149. r51a_r3(C,_infix_and);
  150. }
  151. else{
  152. r51err_exp(_sp,((T0*)ms13_939));
  153. }
  154. /*FI]*/
  155. }
  156. /*FI]*/
  157. }
  158. else{
  159. C->_last_expression=a1;
  160. }
  161. /*FI]*/
  162. }
  163.  
  164.  
  165. void r51a_r4(T51* C,T0* a1){
  166. T0* _sp=NULL;
  167. T0* _infix_gt=NULL;
  168. T0* _infix_ge=NULL;
  169. T0* _infix_lt=NULL;
  170. T0* _infix_le=NULL;
  171. T0* _infix_neq=NULL;
  172. T0* _infix_eq=NULL;
  173. /*[IF*/
  174. if(r51skip1(C,'\75')){
  175. {T39*n=malloc(sizeof(*n));
  176. *n=M39;
  177. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  178. _sp=(T0*)n;
  179. }
  180. /*[IF*/
  181. if(r51a_e4(C)){
  182. {T113*n=malloc(sizeof(*n));
  183. *n=M113;
  184. r113make(n,a1,_sp,(C)->_last_expression/*97*/);
  185. _infix_eq=(T0*)n;
  186. }
  187. r51a_r4(C,_infix_eq);
  188. }
  189. else{
  190. r51err_exp(_sp,((T0*)ms13_62));
  191. }
  192. /*FI]*/
  193. }
  194.  else if(r51skip2(C,'\57','\75')){
  195. {T39*n=malloc(sizeof(*n));
  196. *n=M39;
  197. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  198. _sp=(T0*)n;
  199. }
  200. /*[IF*/
  201. if(r51a_e4(C)){
  202. {T111*n=malloc(sizeof(*n));
  203. *n=M111;
  204. r111make(n,a1,_sp,(C)->_last_expression/*97*/);
  205. _infix_neq=(T0*)n;
  206. }
  207. r51a_r4(C,_infix_neq);
  208. }
  209. else{
  210. r51err_exp(_sp,((T0*)ms13_222));
  211. }
  212. /*FI]*/
  213. }
  214.  else if(r51skip2(C,'\74','\75')){
  215. {T39*n=malloc(sizeof(*n));
  216. *n=M39;
  217. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  218. _sp=(T0*)n;
  219. }
  220. /*[IF*/
  221. if(r51a_e4(C)){
  222. {T110*n=malloc(sizeof(*n));
  223. *n=M110;
  224. r110make(n,a1,_sp,(C)->_last_expression/*97*/);
  225. _infix_le=(T0*)n;
  226. }
  227. r51a_r4(C,_infix_le);
  228. }
  229. else{
  230. r51err_exp(_sp,((T0*)ms13_248));
  231. }
  232. /*FI]*/
  233. }
  234.  else if(r51skip2(C,'\76','\75')){
  235. {T39*n=malloc(sizeof(*n));
  236. *n=M39;
  237. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  238. _sp=(T0*)n;
  239. }
  240. /*[IF*/
  241. if(r51a_e4(C)){
  242. {T108*n=malloc(sizeof(*n));
  243. *n=M108;
  244. r108make(n,a1,_sp,(C)->_last_expression/*97*/);
  245. _infix_ge=(T0*)n;
  246. }
  247. r51a_r4(C,_infix_ge);
  248. }
  249. else{
  250. r51err_exp(_sp,((T0*)ms13_252));
  251. }
  252. /*FI]*/
  253. }
  254.  else if(r51skip1(C,'\74')){
  255. {T39*n=malloc(sizeof(*n));
  256. *n=M39;
  257. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  258. _sp=(T0*)n;
  259. }
  260. /*[IF*/
  261. if(r51a_e4(C)){
  262. {T109*n=malloc(sizeof(*n));
  263. *n=M109;
  264. r109make(n,a1,_sp,(C)->_last_expression/*97*/);
  265. _infix_lt=(T0*)n;
  266. }
  267. r51a_r4(C,_infix_lt);
  268. }
  269. else{
  270. r51err_exp(_sp,((T0*)ms13_61));
  271. }
  272. /*FI]*/
  273. }
  274.  else if(r51skip1unless2(C,'\76','\76')){
  275. {T39*n=malloc(sizeof(*n));
  276. *n=M39;
  277. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  278. _sp=(T0*)n;
  279. }
  280. /*[IF*/
  281. if(r51a_e4(C)){
  282. {T107*n=malloc(sizeof(*n));
  283. *n=M107;
  284. r107make(n,a1,_sp,(C)->_last_expression/*97*/);
  285. _infix_gt=(T0*)n;
  286. }
  287. r51a_r4(C,_infix_gt);
  288. }
  289. else{
  290. r51err_exp(_sp,((T0*)ms13_63));
  291. }
  292. /*FI]*/
  293. }
  294. else{
  295. C->_last_expression=a1;
  296. }
  297. /*FI]*/
  298. }
  299.  
  300.  
  301. void r51a_r5(T51* C,T0* a1){
  302. T0* _sp=NULL;
  303. T0* _infix_minus=NULL;
  304. T0* _infix_plus=NULL;
  305. /*[IF*/
  306. if(r51skip1(C,'\53')){
  307. {T39*n=malloc(sizeof(*n));
  308. *n=M39;
  309. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  310. _sp=(T0*)n;
  311. }
  312. /*[IF*/
  313. if(r51a_e5(C)){
  314. {T115*n=malloc(sizeof(*n));
  315. *n=M115;
  316. r115make(n,a1,_sp,(C)->_last_expression/*97*/);
  317. _infix_plus=(T0*)n;
  318. }
  319. r51a_r5(C,_infix_plus);
  320. }
  321. else{
  322. r51err_exp(_sp,((T0*)ms13_44));
  323. }
  324. /*FI]*/
  325. }
  326.  else if(r51skip1(C,'\55')){
  327. {T39*n=malloc(sizeof(*n));
  328. *n=M39;
  329. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  330. _sp=(T0*)n;
  331. }
  332. /*[IF*/
  333. if(r51a_e5(C)){
  334. {T114*n=malloc(sizeof(*n));
  335. *n=M114;
  336. r114make(n,a1,_sp,(C)->_last_expression/*97*/);
  337. _infix_minus=(T0*)n;
  338. }
  339. r51a_r5(C,_infix_minus);
  340. }
  341. else{
  342. r51err_exp(_sp,((T0*)ms13_46));
  343. }
  344. /*FI]*/
  345. }
  346. else{
  347. C->_last_expression=a1;
  348. }
  349. /*FI]*/
  350. }
  351.  
  352.  
  353. void r51a_r6(T51* C,T0* a1){
  354. T0* _sp=NULL;
  355. T0* _infix_div=NULL;
  356. T0* _infix_int_rem=NULL;
  357. T0* _infix_int_div=NULL;
  358. T0* _infix_times=NULL;
  359. /*[IF*/
  360. if(r51skip1(C,'\52')){
  361. {T39*n=malloc(sizeof(*n));
  362. *n=M39;
  363. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  364. _sp=(T0*)n;
  365. }
  366. /*[IF*/
  367. if(r51a_e6(C)){
  368. {T119*n=malloc(sizeof(*n));
  369. *n=M119;
  370. r119make(n,a1,_sp,(C)->_last_expression/*97*/);
  371. _infix_times=(T0*)n;
  372. }
  373. r51a_r6(C,_infix_times);
  374. }
  375. else{
  376. r51err_exp(_sp,((T0*)ms13_43));
  377. }
  378. /*FI]*/
  379. }
  380.  else if(r51skip2(C,'\57','\57')){
  381. {T39*n=malloc(sizeof(*n));
  382. *n=M39;
  383. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  384. _sp=(T0*)n;
  385. }
  386. /*[IF*/
  387. if(r51a_e6(C)){
  388. {T118*n=malloc(sizeof(*n));
  389. *n=M118;
  390. r118make(n,a1,_sp,(C)->_last_expression/*97*/);
  391. _infix_int_div=(T0*)n;
  392. }
  393. r51a_r6(C,_infix_int_div);
  394. }
  395. else{
  396. r51err_exp(_sp,((T0*)ms51_194a));
  397. }
  398. /*FI]*/
  399. }
  400.  else if(r51skip2(C,'\134','\134')){
  401. {T39*n=malloc(sizeof(*n));
  402. *n=M39;
  403. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  404. _sp=(T0*)n;
  405. }
  406. /*[IF*/
  407. if(r51a_e6(C)){
  408. {T117*n=malloc(sizeof(*n));
  409. *n=M117;
  410. r117make(n,a1,_sp,(C)->_last_expression/*97*/);
  411. _infix_int_rem=(T0*)n;
  412. }
  413. r51a_r6(C,_infix_int_rem);
  414. }
  415. else{
  416. r51err_exp(_sp,((T0*)ms51_374a));
  417. }
  418. /*FI]*/
  419. }
  420.  else if(r51skip1unless2(C,'\57','\75')){
  421. {T39*n=malloc(sizeof(*n));
  422. *n=M39;
  423. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  424. _sp=(T0*)n;
  425. }
  426. /*[IF*/
  427. if(r51a_e6(C)){
  428. {T116*n=malloc(sizeof(*n));
  429. *n=M116;
  430. r116make(n,a1,_sp,(C)->_last_expression/*97*/);
  431. _infix_div=(T0*)n;
  432. }
  433. r51a_r6(C,_infix_div);
  434. }
  435. else{
  436. r51err_exp(_sp,((T0*)ms13_48));
  437. }
  438. /*FI]*/
  439. }
  440. else{
  441. C->_last_expression=a1;
  442. }
  443. /*FI]*/
  444. }
  445.  
  446.  
  447. void r51a_r7(T51* C,T0* a1){
  448. T0* _sp=NULL;
  449. /*[IF*/
  450. if(r51skip1(C,'\136')){
  451. {T39*n=malloc(sizeof(*n));
  452. *n=M39;
  453. r39make(n,(C)->_start_line/*169*/,(C)->_start_column/*165*/);
  454. _sp=(T0*)n;
  455. }
  456. /*[IF*/
  457. if(r51a_e7(C)){
  458. r51a_r7(C,(C)->_last_expression/*97*/);
  459. {T178*n=malloc(sizeof(*n));
  460. *n=M178;
  461. r178make(n,a1,_sp,(C)->_last_expression/*97*/);
  462. C->_last_expression=(T0*)n;
  463. }
  464. }
  465. else{
  466. r51err_exp(_sp,((T0*)ms51_95a));
  467. }
  468. /*FI]*/
  469. }
  470. else{
  471. C->_last_expression=a1;
  472. }
  473. /*FI]*/
  474. }
  475.  
  476.  
  477. void r51a_r8(T51* C,T0* a1){
  478. T0* _infix_freeop=NULL;
  479. T0* _infix_name=NULL;
  480. /*[IF*/
  481. if(r51a_free_operator(C)){
  482. _infix_name=r92to_infix_name_use((T92*)(oBC51tmp_name));
  483. /*[IF*/
  484. if(r51a_e8(C)){
  485. {T120*n=malloc(sizeof(*n));
  486. *n=M120;
  487. r120make(n,a1,_infix_name,(C)->_last_expression/*97*/);
  488. _infix_freeop=(T0*)n;
  489. }
  490. r51a_r8(C,_infix_freeop);
  491. }
  492. else{
  493. r51err_exp((((T121*)_infix_name))->_start_position/*8*/,(((T121*)_infix_name))->_to_string/*4*/);
  494. }
  495. /*FI]*/
  496. }
  497. else{
  498. C->_last_expression=a1;
  499. }
  500. /*FI]*/
  501. }
  502. /*No:EIFFEL_PARSER.fz_undefine*/
  503. /*No:EIFFEL_PARSER.us_any*/
  504.  
  505.  
  506. T6 r51a_constant(T51* C){
  507. T6 R=0;
  508. T0* _sfn=NULL;
  509. T0* _implicit_current=NULL;
  510. /*[IF*/
  511. if(r51a_identifier(C)){
  512. R=1;
  513. _sfn=r92to_simple_feature_name((T92*)(oBC51tmp_name));
  514. {T177*n=malloc(sizeof(*n));
  515. *n=M177;
  516. /*[IRF3.3make*/((((T177*)(n)))->_start_position)=((((T131*)_sfn))->_start_position/*8*/);
  517. /*]*/
  518. _implicit_current=(T0*)n;
  519. }
  520. {T133*n=malloc(sizeof(*n));
  521. *n=M133;
  522. r133make(n,_implicit_current,_sfn);
  523. C->_last_expression=(T0*)n;
  524. }
  525. }
  526.  else if(r51a_character_constant(C)){
  527. R=1;
  528. C->_last_expression=(C)->_last_character_constant/*85*/;
  529. }
  530.  else if(r51a_integer_constant(C)){
  531. R=1;
  532. C->_last_expression=(C)->_last_integer_constant/*129*/;
  533. }
  534. /*FI]*/
  535. return R;
  536. }
  537. /*No:EIFFEL_PARSER.us_real*/
  538. /*No:EIFFEL_PARSER.fz_from*/
  539. /*No:EIFFEL_PARSER.fz_false*/
  540. /*No:EIFFEL_PARSER.show_nb_warnings*/
  541. /*No:EIFFEL_PARSER.local_vars*/
  542. /*No:ASSIGNMENT.nb_errors*/
  543. /*No:ASSIGNMENT.fz_brhsoa*/
  544.  
  545.  
  546. T0* r267start_position(T267* C){
  547. T0* R=NULL;
  548. R=X89start_position((C)->_left_side/*4*/);
  549. return R;
  550. }
  551.  
  552.  
  553. T0* r267add_comment(T267* C,T0* a1){
  554. T0* R=NULL;
  555. /*[IF*/
  556. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r32count(((T32*)((((T64*)a1))->_list/*4*/)))/*)*/)==(0))){
  557. R=(T0*)C;
  558. }
  559. /*AF*/else{
  560. {T209*n=malloc(sizeof(*n));
  561. *n=M209;
  562. r209make(n,(T0*)C,a1);
  563. R=(T0*)n;
  564. }
  565. }
  566. /*FI]*/
  567. return R;
  568. }
  569.  
  570.  
  571. T0* r267right_type(T267* C){
  572. T0* R=NULL;
  573. R=X89result_type((C)->_right_side/*8*/);
  574. return R;
  575. }
  576. /*No:ASSIGNMENT.right_side*/
  577.  
  578.  
  579. void r267implicit_conversion(T267* C){
  580. T0* _right_run_type=NULL;
  581. T0* _left_run_type=NULL;
  582. /*[IF*/
  583. if((/*(IRF4.9nb_errors*/((T37*)(oBC11eh))->_nb_errors/*4*//*)*/)==(0)){
  584. _left_run_type=X62run_type(r267left_type(C));
  585. _right_run_type=X62run_type(r267right_type(C));
  586. /*[IF*/
  587. if(X62is_reference(_left_run_type)){
  588. /*[IF*/
  589. if(X62is_reference(_right_run_type)){
  590. }
  591. else{
  592. X62used_as_reference(_right_run_type);
  593. }
  594. /*FI]*/
  595. }
  596. else{
  597. /*[IF*/
  598. if(X62is_reference(_right_run_type)){
  599. /*[IF*/
  600. if(X89is_void((C)->_right_side/*8*/)){
  601. r37add_position(X89start_position((C)->_right_side/*8*/));
  602. /*[IRF3.6append*/{T0* b1=((T0*)ms267_169026);
  603. r7append((T7*)(oBC37explanation),b1);
  604. }/*]*/
  605. r37add_type(r267left_type(C),((T0*)ms267_47));
  606. r37print_as_error((T37*)(oBC11eh));
  607. }
  608. else{
  609. r267warning(X89start_position((C)->_left_side/*4*/),((T0*)ms267_56296));
  610. }
  611. /*FI]*/
  612. }
  613. /*FI]*/
  614. }
  615. /*FI]*/
  616. }
  617. /*FI]*/
  618. }
  619.  
  620.  
  621. T0* r267to_runnable(T267* C,T0* a1){
  622. T0* R=NULL;
  623. T0* _r=NULL;
  624. T0* _l=NULL;
  625. _l=X89to_runnable((C)->_left_side/*4*/,a1);
  626. /*[IF*/
  627. if((_l)==((void*)(NULL))){
  628. r37add_position(X89start_position((C)->_left_side/*4*/));
  629. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms12_63888);
  630. r37fatal_error((T37*)(oBC11eh),b1);
  631. }/*]*/
  632. }
  633. /*FI]*/
  634. _r=X89to_runnable((C)->_right_side/*8*/,a1);
  635. /*[IF*/
  636. if((_r)==((void*)(NULL))){
  637. r37add_position(X89start_position((C)->_right_side/*8*/));
  638. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms12_67592);
  639. r37fatal_error((T37*)(oBC11eh),b1);
  640. }/*]*/
  641. }
  642. /*FI]*/
  643. /*[IF*/
  644. if(!(X62is_a(X89result_type(_r),X89result_type(_l)))){
  645. r37add_position(X89start_position(_l));
  646. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms267_17248);
  647. r37fatal_error((T37*)(oBC11eh),b1);
  648. }/*]*/
  649. }
  650. /*FI]*/
  651. /*[IF*/
  652. if(((_l)==((void*)((C)->_left_side/*4*/)))&&((_r)==((void*)((C)->_right_side/*8*/)))){
  653. R=(T0*)C;
  654. r267implicit_conversion(C);
  655. }
  656. else{
  657. {T267*n=malloc(sizeof(*n));
  658. *n=M267;
  659. r267make(n,_l,_r);
  660. R=(T0*)n;
  661. }
  662. r267implicit_conversion(((T267*)R));
  663. }
  664. /*FI]*/
  665. return R;
  666. }
  667.  
  668.  
  669. void r267warning(T0* a1,T0* a2){
  670. r37add_position(a1);
  671. r37warning((T37*)(oBC11eh),a2);
  672. }
  673. /*No:ASSIGNMENT.fz_blhsoa*/
  674.  
  675.  
  676. T0* r267left_type(T267* C){
  677. T0* R=NULL;
  678. R=X89result_type((C)->_left_side/*4*/);
  679. return R;
  680. }
  681. /*No:ASSIGNMENT.left_side*/
  682. /*No:ASSIGNMENT.end_mark_comment*/
  683.  
  684.  
  685. void r267make(T267* C,T0* a1,T0* a2){
  686. C->_left_side=a1;
  687. C->_right_side=a2;
  688. }
  689.  
  690.  
  691. void r267pretty_print_assignment(T0* a1,T0* a2,T0* a3){
  692. T6 _semi_colon_flag=0;
  693. X89pretty_print(a1);
  694. r310put_character((T310*)(oBC11fmt),'\40');
  695. r310put_string((T310*)(oBC11fmt),a2);
  696. r310put_character((T310*)(oBC11fmt),'\40');
  697. _semi_colon_flag=((T310*)(oBC11fmt))->_semi_colon_flag/*25*/;
  698. r310level_incr((T310*)(oBC11fmt));
  699. /*[IRF3.3set_semi_colon_flag*/((((T310*)((T310*)(oBC11fmt))))->_semi_colon_flag)=(0);
  700. /*]*/
  701. X89pretty_print(a3);
  702. /*[IRF3.3set_semi_colon_flag*/((((T310*)((T310*)(oBC11fmt))))->_semi_colon_flag)=(_semi_colon_flag);
  703. /*]*/
  704. /*[IF*/
  705. if(_semi_colon_flag){
  706. r310put_character((T310*)(oBC11fmt),'\73');
  707. }
  708. /*FI]*/
  709. r310level_decr((T310*)(oBC11fmt));
  710. }
  711. /*No:ASSIGNMENT.pretty_print*/
  712. /*No:ASSIGNMENT.fatal_error*/
  713. /*No:RUN_CONTROL.generating_type_used*/
  714.  
  715.  
  716. T6 r54ensure_check(T54* C){
  717. T6 R=0;
  718. R=((C)->_level/*0*/)>=(-3);
  719. return R;
  720. }
  721.  
  722.  
  723. T6 r54debug_check(T54* C){
  724. T6 R=0;
  725. R=((C)->_level/*0*/)==(1);
  726. return R;
  727. }
  728. /*No:RUN_CONTROL.level_loop*/
  729. /*No:RUN_CONTROL.level_check_all*/
  730.  
  731.  
  732. T6 r54all_check(T54* C){
  733. T6 R=0;
  734. R=((C)->_level/*0*/)>=(0);
  735. return R;
  736. }
  737. /*No:RUN_CONTROL.set_generating_type_used*/
  738. /*No:RUN_CONTROL.level_boost*/
  739. /*No:RUN_CONTROL.level_ensure*/
  740. /*No:RUN_CONTROL.level_require*/
  741.  
  742.  
  743. T6 r54boost(T54* C){
  744. T6 R=0;
  745. R=((C)->_level/*0*/)==(-6);
  746. return R;
  747. }
  748. /*No:RUN_CONTROL.generator_used*/
  749. /*No:RUN_CONTROL.level_check_debug*/
  750. /*No:RUN_CONTROL.make*/
  751. /*No:RUN_CONTROL.set_generator_used*/
  752. /*No:RUN_CONTROL.level*/
  753.  
  754.  
  755. T6 r54require_check(T54* C){
  756. T6 R=0;
  757. R=((C)->_level/*0*/)>=(-4);
  758. return R;
  759. }
  760.  
  761.  
  762. T6 r54loop_check(T54* C){
  763. T6 R=0;
  764. R=((C)->_level/*0*/)>=(-1);
  765. return R;
  766. }
  767. /*No:INDEX_LIST.add_last*/
  768. /*No:INDEX_LIST.fz_00*/
  769. /*No:INDEX_LIST.make*/
  770.  
  771.  
  772. void r306pretty_print(T306* C){
  773. T2 _i=0;
  774. r310put_string((T310*)(oBC11fmt),((T0*)ms306_11000));
  775. r310level_incr((T310*)(oBC11fmt));
  776. r310indent((T310*)(oBC11fmt));
  777. _i=1;
  778. while (!((_i)>(((T307*)((C)->_list/*0*/))->_upper/*8*/))) {
  779. r305pretty_print((T305*)(r307item((T307*)((C)->_list/*0*/),_i)));
  780. _i=(_i)+(1);
  781. /*[IF*/
  782. if((_i)<=(((T307*)((C)->_list/*0*/))->_upper/*8*/)){
  783. r310put_string((T310*)(oBC11fmt),((T0*)ms12_144));
  784. }
  785. /*FI]*/
  786. }
  787. r310put_character((T310*)(oBC11fmt),'\73');
  788. r310level_decr((T310*)(oBC11fmt));
  789. r310indent((T310*)(oBC11fmt));
  790. }
  791. /*No:INDEX_LIST.list*/
  792. /*No:EXPORT_ITEM.for_all*/
  793.  
  794.  
  795. void r301make(T301* C,T0* a1,T0* a2){
  796. C->_clients=a1;
  797. C->_list=a2;
  798. }
  799.  
  800.  
  801. void r301make_all(T301* C,T0* a1){
  802. C->_clients=a1;
  803. C->_list=NULL;
  804. }
  805.  
  806.  
  807. T6 r301affect(T301* C,T0* a1){
  808. T6 R=0;
  809. /*[IF*/
  810. if(/*(IRF4.7for_all*/((C)->_list/*4*/)==(NULL)/*)*/){
  811. R=1;
  812. }
  813. else{
  814. R=r67has((T67*)((C)->_list/*4*/),a1);
  815. }
  816. /*FI]*/
  817. return R;
  818. }
  819.  
  820.  
  821. void r301pretty_print(T301* C){
  822. r83pretty_print((T83*)((C)->_clients/*0*/));
  823. /*[IF*/
  824. if(/*(IRF4.7for_all*/((C)->_list/*4*/)==(NULL)/*)*/){
  825. r310keyword((T310*)(oBC11fmt),((T0*)ms301_957));
  826. }
  827. else{
  828. r67pretty_print((T67*)((C)->_list/*4*/));
  829. }
  830. /*FI]*/
  831. }
  832. /*No:EXPORT_ITEM.list*/
  833. /*No:EXPORT_ITEM.clients*/
  834.  
  835.  
  836. T6 r42is_used(T0* a1){
  837. T6 R=0;
  838. R=r44has((T44*)(oBC42base_class_dictionary),a1);
  839. return R;
  840. }
  841.  
  842.  
  843. T0* r42base_class(T42* C,T0* a1){
  844. T0* R=NULL;
  845. /*[IF*/
  846. if(r44has((T44*)(oBC42base_class_dictionary),(((T49*)a1))->_to_string/*0*/)){
  847. R=r44at((T44*)(oBC42base_class_dictionary),(((T49*)a1))->_to_string/*0*/);
  848. }
  849.  else if(((T51*)(oBC11eiffel_parser))->_is_running/*8*/){
  850. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms42_71162);
  851. r37fatal_error((T37*)(oBC11eh),b1);
  852. }/*]*/
  853. }
  854. else{
  855. /*[IF*/
  856. if(r42parser_buffer_for(C,(((T49*)a1))->_to_string/*0*/)){
  857. R=r51analyse_class((T51*)(oBC11eiffel_parser),a1);
  858. }
  859. /*FI]*/
  860. /*[IF*/
  861. if((R)==((void*)(NULL))){
  862. r37add_position((((T49*)a1))->_start_position/*4*/);
  863. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms42_31059);
  864. r37fatal_error((T37*)(oBC11eh),b1);
  865. }/*]*/
  866. }
  867. /*FI]*/
  868. }
  869. /*FI]*/
  870. return R;
  871. }
  872.  
  873.  
  874. T6 r42re_load_class(T42* C,T0* a1){
  875. T6 R=0;
  876. T0* _new_class=NULL;
  877. T0* _name=NULL;
  878. _name=((T49*)((((T41*)a1))->_name/*24*/))->_to_string/*0*/;
  879. r44remove((T44*)(oBC42base_class_dictionary),_name);
  880. _new_class=r42load_class(C,_name);
  881. R=(_new_class)!=((void*)(NULL));
  882. return R;
  883. }
  884. /*No:SMALL_EIFFEL.base_class_count*/
  885. T0*oBC11tmp_file_read=NULL;
  886.  
  887.  
  888. void r42add_class(T42* C,T0* a1){
  889. r44put((T44*)(oBC42base_class_dictionary),a1,((T49*)((((T41*)a1))->_name/*24*/))->_to_string/*0*/);
  890. r42incr_magic_count(C);
  891. }
  892. /*No:SMALL_EIFFEL.eiffel_suffix*/
  893. /*No:SMALL_EIFFEL.fz_03*/
  894.  
  895.  
  896. T0* r42load_class(T42* C,T0* a1){
  897. T0* R=NULL;
  898. /*[IF*/
  899. if(r42parser_buffer_for(C,a1)){
  900. R=r51analyse_class((T51*)(oBC11eiffel_parser),NULL);
  901. /*[IF*/
  902. if((R)==((void*)(NULL))){
  903. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms42_24084);
  904. r37fatal_error((T37*)(oBC11eh),b1);
  905. }/*]*/
  906. }
  907. /*FI]*/
  908. }
  909. else{
  910. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms42_24084a);
  911. r37fatal_error((T37*)(oBC11eh),b1);
  912. }/*]*/
  913. }
  914. /*FI]*/
  915. return R;
  916. }
  917.  
  918.  
  919. T0* r42run_class(T0* a1){
  920. T0* R=NULL;
  921. T0* _run_string=NULL;
  922. _run_string=X62run_time_mark(a1);
  923. /*[IF*/
  924. if(r318has((T318*)(oBC42run_class_dictionary),_run_string)){
  925. R=r318at((T318*)(oBC42run_class_dictionary),_run_string);
  926. }
  927. else{
  928. {T313*n=malloc(sizeof(*n));
  929. *n=M313;
  930. r313make(n,a1);
  931. R=(T0*)n;
  932. }
  933. }
  934. /*FI]*/
  935. return R;
  936. }
  937.  
  938.  
  939. T0* r42get_class(T0* a1){
  940. T0* R=NULL;
  941. /*[IF*/
  942. if(r44has((T44*)(oBC42base_class_dictionary),a1)){
  943. R=r44at((T44*)(oBC42base_class_dictionary),a1);
  944. }
  945. else{
  946. r49make((T49*)(r42tmp_class_name()),a1,NULL);
  947. R=r49base_class((T49*)(r42tmp_class_name()));
  948. }
  949. /*FI]*/
  950. return R;
  951. }
  952.  
  953.  
  954. void r42pop(T42* C){
  955. C->_top=((C)->_top/*8*/)-(1);
  956. }
  957. /*No:SMALL_EIFFEL.magic_count*/
  958. T0*oBC42run_class_dictionary=NULL;
  959. /*No:SMALL_EIFFEL.top*/
  960. T0*oBC42parser_buffer_path=NULL;
  961. T0*oBC42tmp_tail=NULL;
  962. int fBC42rename_dictionary=0;
  963. T0*oBC42rename_dictionary=NULL;
  964.  
  965.  
  966. T0* r42rename_dictionary(T42* C){
  967. if(fBC42rename_dictionary==0){
  968. T0* _short_name=NULL;
  969. T0* _full_name=NULL;
  970. T2 _i=0;
  971. fBC42rename_dictionary=1;
  972. {T53*n=malloc(sizeof(*n));
  973. *n=M53;
  974. /*[IRF3.4make*/r53with_capacity(n,32);
  975. /*]*/
  976. oBC42rename_dictionary=(T0*)n;
  977. }
  978. _i=1;
  979. while (!((_i)>(((T32*)(r42loading_path()))->_upper/*8*/))) {
  980. r7copy((T7*)(((T0*)ms11_583550)),r32item((T32*)(r42loading_path()),_i));
  981. r7append((T7*)(((T0*)ms11_583550)),((T0*)ms42_13095));
  982. r33sfr_connect((T33*)(oBC11echo),oBC11tmp_file_read,((T0*)ms11_583550));
  983. /*[IF*/
  984. if(/*(IRF4.7is_connected*/(((T29*)(oBC11tmp_file_read))->_path/*4*/)!=(NULL)/*)*/){
  985. while (!(r29end_of_input((T29*)(oBC11tmp_file_read)))) {
  986. r29read_word((T29*)(oBC11tmp_file_read));
  987. _full_name=r7twin((T7*)(oBC30last_string));
  988. r29read_word((T29*)(oBC11tmp_file_read));
  989. _short_name=r7twin((T7*)(oBC30last_string));
  990. r7prepend(((T7*)_short_name),r32item((T32*)(r42loading_path()),_i));
  991. /*[IF*/
  992. if(r53has(((T53*)oBC42rename_dictionary),_full_name)){
  993. r33w_put_string(((T0*)ms42_24360));
  994. r33w_put_string(_full_name);
  995. r33w_put_string(((T0*)ms42_55872));
  996. r33w_put_string(_short_name);
  997. r33w_put_string(((T0*)ms42_5280));
  998. r33w_put_string(r53at(((T53*)oBC42rename_dictionary),_full_name));
  999. r33w_put_string(((T0*)ms42_118));
  1000. exit(1);
  1001. }
  1002. /*FI]*/
  1003. r53put(((T53*)oBC42rename_dictionary),_short_name,_full_name);
  1004. r29skip_separators((T29*)(oBC11tmp_file_read));
  1005. }
  1006. r29disconnect((T29*)(oBC11tmp_file_read));
  1007. }
  1008. /*FI]*/
  1009. _i=(_i)+(1);
  1010. }
  1011. }
  1012. return oBC42rename_dictionary;}
  1013. /*No:SMALL_EIFFEL.fatal_error*/
  1014.  
  1015.  
  1016. void r42incr_magic_count(T42* C){
  1017. C->_magic_count=((C)->_magic_count/*4*/)+(1);
  1018. }
  1019. int fBC42loading_path=0;
  1020. T0*oBC42loading_path=NULL;
  1021.  
  1022.  
  1023. T0* r42loading_path(void){
  1024. if(fBC42loading_path==0){
  1025. fBC42loading_path=1;
  1026. {T32*n=malloc(sizeof(*n));
  1027. *n=M32;
  1028. r32with_capacity(n,16,1);
  1029. oBC42loading_path=(T0*)n;
  1030. }
  1031. r28read_loading_path_in((T28*)(r42system_tools()),oBC42loading_path);
  1032. }
  1033. return oBC42loading_path;}
  1034.  
  1035.  
  1036. void r42push(T42* C,T0* a1){
  1037. C->_top=((C)->_top/*8*/)+(1);
  1038. r323force((T323*)(oBC42stack_rf),a1,(C)->_top/*8*/);
  1039. }
  1040. /*No:SMALL_EIFFEL.short_flag*/
  1041.  
  1042.  
  1043. T6 r42parser_buffer_for(T42* C,T0* a1){
  1044. T6 R=0;
  1045. T2 _i=0;
  1046. r7copy((T7*)(oBC42tmp_tail),a1);
  1047. r7to_lower((T7*)(oBC42tmp_tail));
  1048. /*[IF*/
  1049. if(!(r7has_suffix((T7*)(oBC42tmp_tail),((T0*)ms11_300)))){
  1050. r7append((T7*)(oBC42tmp_tail),((T0*)ms11_300));
  1051. }
  1052. /*FI]*/
  1053. _i=((T32*)(r42loading_path()))->_lower/*12*/;
  1054. while (!(((_i)>(((T32*)(r42loading_path()))->_upper/*8*/))||(R))) {
  1055. r7copy((T7*)(oBC42parser_buffer_path),r32item((T32*)(r42loading_path()),_i));
  1056. r7append((T7*)(oBC42parser_buffer_path),oBC42tmp_tail);
  1057. r52load_file((T52*)(oBC11parser_buffer),oBC42parser_buffer_path);
  1058. R=/*(IRF4.7is_ready*/(((T52*)(oBC11parser_buffer))->_path/*0*/)!=(NULL)/*)*/;
  1059. _i=(_i)+(1);
  1060. }
  1061. /*[IF*/
  1062. if((!(R))&&(r53has((T53*)(r42rename_dictionary(C)),oBC42tmp_tail))){
  1063. r7copy((T7*)(oBC42parser_buffer_path),r53at((T53*)(r42rename_dictionary(C)),oBC42tmp_tail));
  1064. r52load_file((T52*)(oBC11parser_buffer),oBC42parser_buffer_path);
  1065. /*[IF*/
  1066. if(/*(IRF4.7is_ready*/(((T52*)(oBC11parser_buffer))->_path/*0*/)!=(NULL)/*)*/){
  1067. R=1;
  1068. }
  1069. else{
  1070. r33w_put_string(((T0*)ms42_53690));
  1071. r33w_put_string(oBC42parser_buffer_path);
  1072. r33w_put_string(((T0*)ms12_166));
  1073. exit(1);
  1074. }
  1075. /*FI]*/
  1076. }
  1077. /*FI]*/
  1078. /*[IF*/
  1079. if(!(R)){
  1080. r7copy((T7*)(oBC42tmp_tail),a1);
  1081. /*[IF*/
  1082. if(!(r7has_suffix((T7*)(oBC42tmp_tail),((T0*)ms11_300)))){
  1083. r7append((T7*)(oBC42tmp_tail),((T0*)ms11_300));
  1084. }
  1085. /*FI]*/
  1086. _i=((T32*)(r42loading_path()))->_lower/*12*/;
  1087. while (!(((_i)>(((T32*)(r42loading_path()))->_upper/*8*/))||(R))) {
  1088. r7copy((T7*)(oBC42parser_buffer_path),r32item((T32*)(r42loading_path()),_i));
  1089. r7append((T7*)(oBC42parser_buffer_path),oBC42tmp_tail);
  1090. r52load_file((T52*)(oBC11parser_buffer),oBC42parser_buffer_path);
  1091. R=/*(IRF4.7is_ready*/(((T52*)(oBC11parser_buffer))->_path/*0*/)!=(NULL)/*)*/;
  1092. _i=(_i)+(1);
  1093. }
  1094. }
  1095. /*FI]*/
  1096. /*[IF*/
  1097. if(!(R)){
  1098. r33w_put_string(((T0*)ms42_48577));
  1099. r33w_put_string(a1);
  1100. r33w_put_string(((T0*)ms42_354));
  1101. /*[IRF3.3clear*/((((T7*)((T7*)(oBC42parser_buffer_path))))->_count)=(0);
  1102. /*]*/
  1103. /*[IRF3.6append_loading_path_in*/{T0* b1=oBC42parser_buffer_path;
  1104. r28append_lp_in((T28*)(r42system_tools()),b1,r42loading_path());
  1105. }/*]*/
  1106. r33w_put_string(oBC42parser_buffer_path);
  1107. }
  1108. /*FI]*/
  1109. return R;
  1110. }
  1111. int fBC11system_tools=0;
  1112. T0*oBC11system_tools=NULL;
  1113.  
  1114.  
  1115. T0* r42system_tools(void){
  1116. if(fBC11system_tools==0){
  1117. fBC11system_tools=1;
  1118. {T28*n=malloc(sizeof(*n));
  1119. *n=M28;
  1120. r28make(n);
  1121. oBC11system_tools=(T0*)n;
  1122. }
  1123. }
  1124. return oBC11system_tools;}
  1125.  
  1126.  
  1127. T0* r42top_rf(T42* C){
  1128. T0* R=NULL;
  1129. R=r323item((T323*)(oBC42stack_rf),(C)->_top/*8*/);
  1130. return R;
  1131. }
  1132. /*No:SMALL_EIFFEL.make*/
  1133. /*No:SMALL_EIFFEL.us_any*/
  1134. T0*oBC42stack_rf=NULL;
  1135. /*No:SMALL_EIFFEL.exit_failure_code*/
  1136. T0*oBC42base_class_dictionary=NULL;
  1137. int fBC42tmp_class_name=0;
  1138. T0*oBC42tmp_class_name=NULL;
  1139.  
  1140.  
  1141. T0* r42tmp_class_name(void){
  1142. if(fBC42tmp_class_name==0){
  1143. fBC42tmp_class_name=1;
  1144. {T49*n=malloc(sizeof(*n));
  1145. *n=M49;
  1146. r49make(n,((T0*)ms13_714),NULL);
  1147. oBC42tmp_class_name=(T0*)n;
  1148. }
  1149. }
  1150. return oBC42tmp_class_name;}
  1151. /*No:SMALL_EIFFEL.tmp_path*/
  1152. /*No:SMALL_EIFFEL.append_loading_path_in*/
  1153.  
  1154.  
  1155. void r295append_in(T295* C,T0* a1){
  1156. T2 _i=0;
  1157. _i=/*X296lower*/((T2)((T169*)((C)->_name_list/*4*/))->_lower/*16*/);
  1158. while (!((_i)>(/*X296upper*/((T2)((T169*)((C)->_name_list/*4*/))->_upper/*12*/)))) {
  1159. X163add_last(a1,/*X296item*/((T0*)r169item((T169*)((C)->_name_list/*4*/),_i)));
  1160. _i=(_i)+(1);
  1161. }
  1162. }
  1163. /*No:DECLARATION_GROUP.name_list*/
  1164.  
  1165.  
  1166. T2 r295count(T295* C){
  1167. T2 R=0;
  1168. R=/*X296upper*/((T2)((T169*)((C)->_name_list/*4*/))->_upper/*12*/);
  1169. return R;
  1170. }
  1171.  
  1172.  
  1173. void r295make(T295* C,T0* a1,T0* a2){
  1174. T2 _i=0;
  1175. C->_name_list=a1;
  1176. _i=/*X296upper*/((T2)((T169*)((C)->_name_list/*4*/))->_upper/*12*/);
  1177. while (!((_i)==(0))) {
  1178. /*X168set_result_type*//*[IRF3.3set_result_type*/((((T167*)((T167*)(/*X296item*/((T0*)r169item((T169*)((C)->_name_list/*4*/),_i))))))->_result_type)=(a2);
  1179. /*]*/
  1180. _i=(_i)-(1);
  1181. }
  1182. }
  1183.  
  1184.  
  1185. void r295pretty_print(T295* C){
  1186. T2 _i=0;
  1187. _i=/*X296lower*/((T2)((T169*)((C)->_name_list/*4*/))->_lower/*16*/);
  1188. X168pretty_print(/*X296item*/((T0*)r169item((T169*)((C)->_name_list/*4*/),_i)));
  1189. _i=(_i)+(1);
  1190. while (!((_i)>(/*X296upper*/((T2)((T169*)((C)->_name_list/*4*/))->_upper/*12*/)))) {
  1191. r310put_string((T310*)(oBC11fmt),((T0*)ms295_158));
  1192. X168pretty_print(/*X296item*/((T0*)r169item((T169*)((C)->_name_list/*4*/),_i)));
  1193. _i=(_i)+(1);
  1194. }
  1195. r310put_string((T310*)(oBC11fmt),((T0*)ms295_186));
  1196. X62pretty_print(/*X168result_type*/((T0*)((T167*)(/*X296item*/((T0*)r169item((T169*)((C)->_name_list/*4*/),1))))->_result_type/*12*/));
  1197. }
  1198. /*No:E_REQUIRE.set_require_else*/
  1199. /*No:E_REQUIRE.start_position*/
  1200. /*No:E_REQUIRE.header_comment*/
  1201. /*No:E_REQUIRE.current_type*/
  1202. /*No:E_REQUIRE.run_feature*/
  1203.  
  1204.  
  1205. void r271make(T271* C,T0* a1,T0* a2,T0* a3){
  1206. C->_start_position=a1;
  1207. C->_header_comment=a2;
  1208. C->_list=a3;
  1209. }
  1210.  
  1211.  
  1212. void r271pretty_print(T271* C){
  1213. T2 _i=0;
  1214. r310indent((T310*)(oBC11fmt));
  1215. r310keyword((T310*)(oBC11fmt),r271name(C));
  1216. r310level_incr((T310*)(oBC11fmt));
  1217. /*[IF*/
  1218. if(((C)->_header_comment/*4*/)!=((void*)(NULL))){
  1219. r64pretty_print((T64*)((C)->_header_comment/*4*/));
  1220. }
  1221. else{
  1222. r310indent((T310*)(oBC11fmt));
  1223. }
  1224. /*FI]*/
  1225. /*[IF*/
  1226. if(((C)->_list/*8*/)!=((void*)(NULL))){
  1227. _i=1;
  1228. while (!((_i)>(((T88*)((C)->_list/*8*/))->_upper/*8*/))) {
  1229. /*[IF*/
  1230. if(r6_px_and(r310zen_mode((T310*)(oBC11fmt)),(_i)==(((T88*)((C)->_list/*8*/))->_upper/*8*/))){
  1231. /*[IRF3.3set_semi_colon_flag*/((((T310*)((T310*)(oBC11fmt))))->_semi_colon_flag)=(0);
  1232. /*]*/
  1233. }
  1234. else{
  1235. /*[IRF3.3set_semi_colon_flag*/((((T310*)((T310*)(oBC11fmt))))->_semi_colon_flag)=(1);
  1236. /*]*/
  1237. }
  1238. /*FI]*/
  1239. r310indent((T310*)(oBC11fmt));
  1240. r85pretty_print((T85*)(r88item((T88*)((C)->_list/*8*/),_i)));
  1241. _i=(_i)+(1);
  1242. }
  1243. }
  1244. /*FI]*/
  1245. r310level_decr((T310*)(oBC11fmt));
  1246. r310indent((T310*)(oBC11fmt));
  1247. }
  1248.  
  1249.  
  1250. void r271make_runnable(T271* C,T0* a1,T0* a2,T0* a3){
  1251. C->_list=a1;
  1252. C->_current_type=a2;
  1253. C->_run_feature=a3;
  1254. }
  1255.  
  1256.  
  1257. T0* r271name(T271* C){
  1258. T0* R=NULL;
  1259. /*[IF*/
  1260. if((C)->_is_require_else/*20*/){
  1261. R=((T0*)ms271_21324);
  1262. }
  1263. else{
  1264. R=((T0*)ms271_8904);
  1265. }
  1266. /*FI]*/
  1267. return R;
  1268. }
  1269. /*No:E_REQUIRE.set_header_comment*/
  1270. /*No:E_REQUIRE.is_require_else*/
  1271. /*No:E_REQUIRE.empty*/
  1272. /*No:E_REQUIRE.list*/
  1273.  
  1274.